www.gusucode.com > 地方成人教育中心整站源代码 1 > 地方成人教育中心整站源代码 1.0/bbs/BokeRss.asp
<!--#include FILE="conn.asp"--> <!--#include file="inc/const.asp" --> <!--#include file="boke/config.asp"--> <% If DvBoke.BokeUserID=0 Then DvBoke.ShowCode(46) DvBoke.ShowMsg(0) End If Dim TopicLink,TopicList If Is_Isapi_Rewrite = 0 Then Dvbbs.ModHtmlLinked = Dvbbs.Get_ScriptNameUrl() & "boke.asp?" & DvBoke.BokeName & ".html" TopicLink = Dvbbs.Get_ScriptNameUrl() & "boke.asp?" & DvBoke.BokeName & "/showtopic/" Else Dvbbs.ModHtmlLinked = Dvbbs.Get_ScriptNameUrl() & DvBoke.BokeName & ".html" TopicLink = Dvbbs.Get_ScriptNameUrl() & DvBoke.BokeName & "/showtopic/" End If Response.Clear Response.CharSet="gb2312" '数据集 Response.ContentType="text/xml" '数据流格式定义 Response.Write "<?xml version=""1.0"" encoding=""gb2312""?>"&vbNewLine Response.Write "<rss version=""2.0"">"&vbNewLine Response.Write "<channel>"&vbNewLine Response.Write "<title><![CDATA["&DvBoke.BokeNode.getAttribute("boketitle")&"]]></title>"&vbNewLine Response.Write "<link>"&Dvbbs.ModHtmlLinked&"</link>"&vbNewLine Response.Write "<description><![CDATA["&DvBoke.BokeNode.getAttribute("bokechildtitle")&"]]></description>"&vbNewLine Dim TopicHtml Dim Node,ChildNodes Set Node = DvBoke.BokeCat.selectNodes("xml/boketopic/rs:data/z:row") If (Node Is Nothing) Then DvBoke.ShowCode(46) DvBoke.ShowMsg(0) End If Dim PostDate,Title,Content,Channels,ChannelTitle For Each ChildNodes in Node PostDate = ChildNodes.getAttribute("posttime") If Not IsDate(PostDate) Then PostDate = Now() Title = ChildNodes.getAttribute("title") If Len(Title)>150 Then Title = Left(Title,150) &"......" Content = ChildNodes.getAttribute("titlenote")&"" Content = Lcase(Content) Content = Replace(Content,"<img src=""skins/", "<img src="""&Dvbbs.Get_ScriptNameUrl()&"skins/") Content = Replace(Content,"<img src=""images/","<img src="""&Dvbbs.Get_ScriptNameUrl()&"images/") Content = Replace(Content,"<img src=""boke/","<img src="""&Dvbbs.Get_ScriptNameUrl()&"boke/") Content = Replace(Content,"<a href=""boke/","<a href="""&Dvbbs.Get_ScriptNameUrl()&"boke/") Content = Replace(Content,"<a href=""boke.asp","<a href="""&Dvbbs.Get_ScriptNameUrl()&"boke.asp") Content = Replace(Content,"<a href="""&DvBoke.BokeName&"","<a href="""&Dvbbs.Get_ScriptNameUrl()&""&DvBoke.BokeName&"") TopicHtml = "<item>" TopicHtml = TopicHtml & "<title><![CDATA["&DvBoke.HTMLEncode(Title)&"]]></title>" TopicHtml = TopicHtml & "<link>"&TopicLink&ChildNodes.getAttribute("topicid")&".html</link>" TopicHtml = TopicHtml & "<description><![CDATA["&Content&"]]></description>" TopicHtml = TopicHtml & "<author>"&ChildNodes.getAttribute("username")&"</author>" TopicHtml = TopicHtml & "<pubDate>"&PostDate&"</pubDate>" TopicHtml = TopicHtml & "</item>" TopicList = TopicList & TopicHtml TopicHtml = "" Next Response.Write TopicList Response.Write "</channel>"&vbNewLine Response.Write "</rss>" %>